SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TXMVTO_CNTB_I14]    
/*----------------------------------------------------------*/    
/*--- Empresa             :  OFISIS S.A.                ----*/    
/*--- Cliente             :  OFISIS S.A.                ----*/    
/*--- Sistema             :  Contabilidad               ----*/    
/*--- Modulo              :  Empresa                    ----*/    
/*--- Programa            :  Cierre de Fin de Ao                       ----*/    
/*--- Script              :                             ----*/    
/*--- Nombre SP           :  SP_TXMVTO_CNTB_I14         ----*/    
/*--- Desarrollado Por    :  OFISIS S.A.                ----*/    
/*--- Fecha Creaci?n      :  20/04/1999                 ----*/    
/*--- Base de Datos       :  Microsoft SQL Server       ----*/    
/*--- Versi?n             :  6.5                        ----*/    
/*--- Invoca a SP         :  SP_TXMVTO_CNTB_I15         ----*/    
/*----------------------------------------------------------*/ 
/*----------------------------------------------------------*/      
/*----- Modificado 1 por : PDGV                        -----*/      
/*----- Fecha Modifica   : 20/01/2005                  -----*/      
/*----- Detalle Modifica : cierre POR UNIDAD           -----*/      
/*----------------------------------------------------------*/    
/*----------------------------------------------------------*/    
/*--- Drop Proc SP_TXMVTO_CNTB_I14                       ---*/    
/*--- Grant All On SP_TXMVTO_CNTB_I14 To Public          ---*/     
/*--- SP_TXMVTO_CNTB_I14 '01', 1, 1999, 13, '01','001',5 ---*/    
/*----------------------------------------------------------*/    
@ISCO_EMPR          TD_VC_002,    
@ISCO_USUA          TD_VC_008,
@IDFE_USUA          TD_DT_001,
@INNU_CNTB_EMPR     TD_IN_001,    
@INNU_ANNO          TD_IN_004_ANNO,    
@INNU_MESE          TD_IN_002_MESE,    
@ISCO_UNID_CNTB     TD_VC_003,    
@ISCO_UNID_FILT     TD_VC_003,    
@ISCO_OPRC_CNTB     TD_VC_003,    
@INNV_INFO_CNTA     TD_IN_001,    
@IDFE_ASTO_CNTB     TD_DT_001,   
@ISTI_FILT          TD_VC_001, -- 'T' TODAS LAS UNID. 'P' FILTRO POR UNIDAD         
@ISTI_GENE_ASTO     TD_VC_003  -- 'ING'  UNIDAD INGRESADA 'ORI' UNIDAD ORIGEN       
    
As    
Begin     
Declare    
@VNNU_ASTO     TD_IN_001    
    
If @ISTI_GENE_ASTO = 'ING'             
 Begin   
   Delete TXMVTO_CNTB    
   Where  CO_EMPR = @ISCO_EMPR    
   And    NU_CNTB_EMPR = @INNU_CNTB_EMPR    
--   and    CO_UNID_CNTB = @ISCO_UNID_CNTB    
   And    CO_OPRC_CNTB = @ISCO_OPRC_CNTB    
   And    NU_ANNO = @INNU_ANNO    
   And    NU_MESE = @INNU_MESE    
 End   
  
If @ISTI_GENE_ASTO = 'ORI'             
 Begin     
 Delete From TXMVTO_CNTB            
 Where CO_EMPR = @ISCO_EMPR     
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR    
 And CO_OPRC_CNTB = @ISCO_OPRC_CNTB     
 And NU_ANNO      = @INNU_ANNO  
 And NU_MESE      = @INNU_MESE  
 And ((@ISTI_FILT = 'T') Or (@ISTI_FILT = 'P' And CO_UNID_ORIG = @ISCO_UNID_FILT))           

 --CASO SEA LA GENERACION EN EL ORIGEN ENTONCES BORRA AQUELLOS ASIENTOS QUE SE HAYAN GENERADO Y QUE NO TENGAN ORIGEN
If @ISTI_FILT = 'P'
 Begin 
 Delete From TXMVTO_CNTB            
 Where CO_EMPR = @ISCO_EMPR     
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR    
 And CO_OPRC_CNTB = @ISCO_OPRC_CNTB     
 And NU_ANNO      = @INNU_ANNO  
 And NU_MESE      = @INNU_MESE  
 And IsNull(CO_UNID_ORIG, '') = ''
 End 

 End  
  
 -- ACTUALIZA CORRELATIVOS LUEGO DE DELETES para todas las unidades   
 Exec SP_TTINTE_CNTB_U03 @ISCO_EMPR, @ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR, @INNU_ANNO, @INNU_MESE, @ISCO_OPRC_CNTB  
    
/* Update TCFECH_PROC    
 Set    NU_ULTI_ASTO = 0    
 Where CO_EMPR = @ISCO_EMPR    
 And    NU_CNTB_EMPR = @INNU_CNTB_EMPR    
 And    NU_ANNO = @INNU_ANNO    
 And    NU_MESE = @INNU_MESE    
 And    CO_UNID_CNTB = @ISCO_UNID_CNTB    
 And    CO_OPRC_CNTB = @ISCO_OPRC_CNTB    
    
   If @@Error != 0    
   Begin    
      Rollback Tran SP_TXMVTO_CNTB_I14         
   End  */  
    
   -- Ejecuta Stored Procedured    
   -- Select 'Par 1'    
 
   Exec SP_TXMVTO_CNTB_I15 @ISCO_EMPR, @ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,    
                           @ISCO_UNID_CNTB,@ISCO_OPRC_CNTB,@INNV_INFO_CNTA,1, @IDFE_ASTO_CNTB,   
@ISTI_FILT, @ISTI_GENE_ASTO, @ISCO_UNID_FILT    
    
   -- Select 'Par 2'    
   Exec SP_TXMVTO_CNTB_I15 @ISCO_EMPR,@ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,    
                           @ISCO_UNID_CNTB,@ISCO_OPRC_CNTB,@INNV_INFO_CNTA,2, @IDFE_ASTO_CNTB,   
@ISTI_FILT, @ISTI_GENE_ASTO, @ISCO_UNID_FILT      
    
   -- Select 'Par 3'    
   Exec SP_TXMVTO_CNTB_I15 @ISCO_EMPR,@ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,    
                           @ISCO_UNID_CNTB,@ISCO_OPRC_CNTB,@INNV_INFO_CNTA,3, @IDFE_ASTO_CNTB,   
@ISTI_FILT, @ISTI_GENE_ASTO, @ISCO_UNID_FILT      
    
   -- Select 'Par 4'    
   Exec SP_TXMVTO_CNTB_I15 @ISCO_EMPR,@ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,    
                           @ISCO_UNID_CNTB,@ISCO_OPRC_CNTB,@INNV_INFO_CNTA,4, @IDFE_ASTO_CNTB,   
@ISTI_FILT, @ISTI_GENE_ASTO, @ISCO_UNID_FILT      
    
   -- Select 'Par 5'    
   Exec SP_TXMVTO_CNTB_I15 @ISCO_EMPR,@ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,    
                           @ISCO_UNID_CNTB,@ISCO_OPRC_CNTB,@INNV_INFO_CNTA,5, @IDFE_ASTO_CNTB,   
@ISTI_FILT, @ISTI_GENE_ASTO, @ISCO_UNID_FILT      
    
   -- Select 'Par 6'    
   Exec SP_TXMVTO_CNTB_I15 @ISCO_EMPR,@ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,    
                           @ISCO_UNID_CNTB,@ISCO_OPRC_CNTB,@INNV_INFO_CNTA,6, @IDFE_ASTO_CNTB,   
@ISTI_FILT, @ISTI_GENE_ASTO, @ISCO_UNID_FILT      
    
   -- Select 'Par 7'    
   Exec SP_TXMVTO_CNTB_I15 @ISCO_EMPR,@ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,    
                           @ISCO_UNID_CNTB,@ISCO_OPRC_CNTB,@INNV_INFO_CNTA,7, @IDFE_ASTO_CNTB,   
@ISTI_FILT, @ISTI_GENE_ASTO, @ISCO_UNID_FILT      
    
 --Exec SP_TASALD_EMPR_I01 @ISCO_EMPR, @ISCO_UNID_CNTB, @INNU_CNTB_EMPR,@INNU_ANNO,@INNU_MESE,@INNU_ANNO,@INNU_MESE    
    
/*Select  @VNNU_ASTO = convert(int,max(nu_asto))    
From TXMVTO_CNTB    
Where  CO_EMPR = @ISCO_EMPR    
  And    NU_CNTB_EMPR = @INNU_CNTB_EMPR    
  And    CO_UNID_CNTB = @ISCO_UNID_CNTB    
  And    CO_OPRC_CNTB = @ISCO_OPRC_CNTB    
  And    NU_ANNO = @INNU_ANNO    
  And    NU_MESE = @INNU_MESE    
    
   If @VNNU_ASTO Is Null     
      Select @VNNU_ASTO = 0    
    
 Update TCFECH_PROC    
 Set    NU_ULTI_ASTO = @VNNU_ASTO    
 Where CO_EMPR = @ISCO_EMPR    
 And    NU_CNTB_EMPR = @INNU_CNTB_EMPR    
 And    NU_ANNO = @INNU_ANNO    
 And    NU_MESE = @INNU_MESE    
 And    CO_UNID_CNTB = @ISCO_UNID_CNTB    
 And    CO_OPRC_CNTB = @ISCO_OPRC_CNTB  */  
  
 -- ACTUALIZA CORRELATIVOS LUEGO DE inserts para todas las unidades   
 Exec SP_TTINTE_CNTB_U03 @ISCO_EMPR, @ISCO_USUA, @IDFE_USUA, @INNU_CNTB_EMPR, @INNU_ANNO, @INNU_MESE, @ISCO_OPRC_CNTB  
    
End    
    
/*----                            Fin                           -----*/    





GO
